home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abk.d64 / tape jacket list (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  175 lines
  1. 1 REM---------DECLARE VARIABLES---------
  2. 3 T$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  3. 4 B$="                                                                  "
  4. 5 C$="[219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219]"
  5. 6 E$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  6. 7 SP$="                                 ":BO$="[221]"
  7. 8 M$=BO$+B$+CHR$(32)+BO$
  8. 9 DIMTI$(2,30):DIMN$(2):DIMP$(30):DIMS(2):FL=0
  9. 20 REM-----CASSETTE JACKET LISTER/------
  10. 30 REM-------PRINTER WRITTEN BY:--------
  11. 40 REM---MATTHEW J. LOTRIDGE 02/02/86---
  12. 60 REM-----MAIN TITLE SCREEN / MENU-----
  13. 80 POKE53280,0:POKE53281,0:POKE53272,23:OPEN3,4:PRINT#3,CHR$(27);"B":CLOSE3
  14. 90 PRINT"[147]   [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  15. 100 PRINT"   [221][158] [195]ASSETTE [202]ACKET [204]ISTER/[208]RINTER [221]"
  16. 110 PRINT"   [221]     [158]BY [205]ATTHEW [202]. [204]OTRIDGE     [221]"
  17. 120 PRINT"   [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  18. 130 PRINT"[195]ASSETTE [202]ACKET PRINTER PROGRAM FOR THE [195]OMMODORE 64 COMPUTER ";
  19. 140 PRINT"AND [207]KIMATE 10":PRINT"COLOR PRINTER."
  20. 150 PRINT"1) [197][206][212][197][210][158] NEW TITLES"
  21. 160 PRINT"2) [197][196][201][212][158] CURRENT TITLES"
  22. 170 PRINT"3) [208][210][201][206][212][158] CURRENT TITLES"
  23. 180 PRINT"4) [197][206][196][158] PROGRAM"
  24. 190 GETA$:A=VAL(A$):IF(A<>1)AND(A<>2)AND(A<>3)AND(A<>4)THEN190
  25. 195 PRINT"[193]RE YOU SURE ABOUT CHOICE #";A;"?"
  26. 196 GETA$:IF(A$<>"Y")AND(A$<>"N")THEN196
  27. 200 IFA$="N"THEN90
  28. 210 ON A GOTO 280,220,2000,2500
  29. 220 IFFL=1THENGOSUB1200:GOTO90
  30. 230 PRINT"[147]     [206][207][160][212][201][212][204][197][211][160][195][213][210][210][197][206][212][204][217][160][201][206][160][205][197][205][207][210][217]      [146][158]"
  31. 240 PRINT"       PRESS ANY KEY TO CONTINUE"
  32. 250 GETA$:IFA$=""THEN250
  33. 260 GOTO90
  34. 280 REM-----CONTENTS INPUT SECTION------
  35. 290 FORB=1TO2
  36. 300 PRINT"[147][215]HAT IS THE TITLE FOR SIDE #";B
  37. 310 INPUTN$(B)
  38. 320 PRINT"[201]S THE TITLE OF SIDE[158]";B;"CORRECT?"
  39. 330 PRINT"[158]";N$(B)
  40. 340 GETA$:IF(A$<>"Y")AND(A$<>"N")THEN340
  41. 350 IFA$="N"THEN300
  42. 360 X=LEN(N$(B))
  43. 370 IFX>67THENL=1:GOTO390
  44. 380 L=0:N$(B)=BO$+(N$(B)+RIGHT$(B$,67-X))+BO$
  45. 390 IFL=1THEN300
  46. 400 PRINT"[147]"
  47. 410 FORA=1TO30
  48. 420 PRINT"[211]IDE";B;"[212]ITLE #";A
  49. 430 INPUTTI$(B,A)
  50. 440 S(B)=A
  51. 450 GOSUB490
  52. 460 NEXT A
  53. 470 NEXT B
  54. 480 FL=1:GOTO90
  55. 490 REM---STRING LENGTH CHECKER/FIXER---
  56. 500 IFTI$(B,A)="END"THEN1010
  57. 510 X=LEN(TI$(B,A))
  58. 520 IFX<=33THEN690
  59. 530 IFX>=67THEN670
  60. 540 FORCH=XTO1STEP-1
  61. 550 TI$(B,A+1)=TI$(B,A)
  62. 560 IFMID$(TI$(B,A),CH,1)<>" "THENNEXTCH
  63. 570 IFCH=0THEN670
  64. 580 IFCH>33THENNEXTCH
  65. 590 TI$(B,A)=LEFT$(TI$(B,A),CH)
  66. 600 Z=LEN(TI$(B,A))
  67. 610 TI$(B,A)=TI$(B,A)+(RIGHT$(SP$,33-Z))
  68. 620 X=X-CH:TI$(B,A+1)=RIGHT$(TI$(B,A+1),X)
  69. 630 Z=LEN(TI$(B,A+1))
  70. 640 TI$(B,A+1)="[160]"+(TI$(B,A+1))+(RIGHT$(SP$,32-Z))
  71. 650 A=A+1:RETURN
  72. 670 PRINT"[212][201][212][204][197] [212][207][207] [204][207][206][199] [197][210][210][207][210][146][158]"
  73. 680 A=A-1:RETURN
  74. 690 X=LEN(TI$(B,A))
  75. 700 TI$(B,A)=TI$(B,A)+RIGHT$(SP$,33-X)
  76. 710 RETURN
  77. 1010 REM--BLANK LINE INSERTION ROUTINE-
  78. 1030 TI$(B,A)=SP$
  79. 1040 FORA=S(B)TO30
  80. 1050 TI$(B,A)=SP$
  81. 1060 NEXTA
  82. 1070 A=A-1:RETURN
  83. 1200 REM---TITLE CHECKER/VERIFICATION---
  84. 1220 FORB=1TO2
  85. 1230 PRINT"[147]"
  86. 1240 FORA=1TO(S(B)-1)
  87. 1250 PRINT"[151]"A;"[158]"TI$(B,A)
  88. 1260 NEXTA
  89. 1270 PRINT"[193]DD, [205]ODIFY, [196]ELETE OR [206]ONE?"
  90. 1280 GETA$:IF(A$<>"A")AND(A$<>"M")AND(A$<>"D")AND(A$<>"N")THEN1280
  91. 1290 IFA$="N"THEN1370
  92. 1291 IFA$="A"THEN1500
  93. 1292 IFA$="D"THEN1700
  94. 1300 INPUT"[159][215]HICH LINE NUMBER[158]";LN
  95. 1310 IF(LN<1)OR(LN>30)THENPRINT"[145]";
  96. 1320 A=LN
  97. 1330 PRINT"[211]IDE";B;"[212]ITLE #";A
  98. 1331 PRINT"";TI$(B,A)
  99. 1340 INPUT"[145]";TI$(B,A)
  100. 1350 GOSUB490
  101. 1360 GOTO1230
  102. 1370 NEXTB
  103. 1380 FORA=1TO30
  104. 1390 P$(A)=BO$+TI$(1,A)+BO$+TI$(2,A)+BO$
  105. 1400 NEXTA
  106. 1410 GOTO90
  107. 1500 REM----------ADD A LINE------------
  108. 1510 INPUT"[193]DD A LINE WHERE";D
  109. 1520 IF(D<1)OR(D>30)THENPRINT"[145]";:GOTO1510
  110. 1530 PRINT"[193]RE YOU SURE YOU WANT TO ADD #";D"?"
  111. 1540 GETA$:IF(A$<>"Y")AND(A$<>"N")THEN1540
  112. 1550 IFA$="N"THEN1230
  113. 1560 FORA=S(B)+1TOD+1STEP-1
  114. 1570 TI$(B,A)=TI$(B,A-1)
  115. 1580 NEXTA
  116. 1590 TI$(B,A)=SP$
  117. 1600 S(B)=S(B)+1
  118. 1610 GOTO1230
  119. 1700 REM----------DELETE LINE-----------
  120. 1710 INPUT"[196]ELETE WHICH LINE";D
  121. 1720 IF(D<1)OR(D>S(B))THENPRINT"[145]";:GOTO1710
  122. 1730 PRINT"[193]RE YOU SURE YOU WANT TO DELETE #";D"?"
  123. 1740 GETA$:IF(A$<>"Y")AND(A$<>"N")THEN1740
  124. 1750 IFA$="N"THEN1230
  125. 1760 FORA=DTOS(B)
  126. 1770 TI$(B,A)=TI$(B,A+1)
  127. 1780 NEXTA
  128. 1790 TI$(B,A-1)=SP$
  129. 1800 S(B)=S(B)-1
  130. 1810 GOTO1230
  131. 2000 REM--------PRINTER ROUTINE---------
  132. 2010 PRINT"[147]         [208][210][201][206][212][201][206][199]...[208][204][197][193][211][197] [215][193][201][212]         "
  133. 2020 OPEN3,4
  134. 2030 PRINT#3,CHR$(29);" "
  135. 2040 PRINT#3,T$
  136. 2050 FORA=1TO15
  137. 2060 PRINT#3,CHR$(17);P$(A)
  138. 2070 NEXT
  139. 2080 PRINT#3,C$
  140. 2090 IF(S(1)<=16)AND(S(2)<=16)THEN2140
  141. 2100 FORA=16TO30
  142. 2110 PRINT#3,CHR$(17);P$(A)
  143. 2120 NEXT
  144. 2130 PRINT#3,C$
  145. 2140 PRINT#3,CHR$(17);N$(1)
  146. 2150 PRINT#3,CHR$(17);N$(2)
  147. 2160 PRINT#3,C$
  148. 2170 FORA=1TO3
  149. 2180 PRINT#3,M$
  150. 2190 NEXTA
  151. 2200 PRINT#3,C$
  152. 2210 PRINT#3,CHR$(12)
  153. 2220 CLOSE3
  154. 2230 GOTO90
  155. 2500 REM----------END PROGRAM----------
  156. 2510 POKE53272,21:PRINT"[147]":END
  157. 3000 REM---------VARIABLE LIST---------
  158. 3010 REM-  A  = LINE NUMBER           -
  159. 3020 REM-  B  = SIDE NUMBER           -
  160. 3030 REM-  L  = NOTHING IMPORTANT     -
  161. 3040 REM-  X  = VALUE OF STRING LENGTH-
  162. 3050 REM-  Z  = LENGTH IN CHECKER     -
  163. 3060 REM- CH  = COUNTER IN CHECKER    -
  164. 3070 REM- FL  = EDITER FLAG           -
  165. 3080 REM- ZZ  = VALUE OF INPUT STRING -
  166. 3090 REM- A$  = GET $ VARIABLE        -
  167. 3100 REM- B$  = 77 SPACES             -
  168. 3110 REM- C$  = CENTER LINE           -
  169. 3120 REM- E$  = BOTTOM LINE           -
  170. 3130 REM- M$  = 77 SPACES PLUS BORDERS-
  171. 3140 REM- T$  = TOP LINE              -
  172. 3150 REM- BO$ = BORDER CHARACTER      -
  173. 3160 REM- SP$ = 38 SPACES             -
  174. 3170 REM-------------------------------
  175.